1000 REM * DARKTERM V4.0
1010 REM * (C) 1986 D.S.S.
1020 REM * TERMINAL EQUATES
1030 REM *
1040 OPEN2,9,1,"@0:T4.CODE"
1050 SYS700
1060 .OPT O2
1070 ;
1080 CHKIN  =$FFC6 ; KERNAL EQUATES
1090 CHKOUT =$FFC9
1100 CHRIN  =$FFCF
1110 CHROUT =$FFD2
1120 CLRCHN =$FFCC
1130 CLOSE  =$FFC3
1140 OPEN   =$FFC0
1150 SETLFS =$FFBA
1160 SETNAM =$FFBD
1170 GETIN  =$FFE4
1180 READST =$FFB7
1190 PLOT   =$FFF0
1200 ;
1210 BUFLO    =$4C00 ; BUFFER START
1220 AUTODIAL =$4600 ; A/D JUMP ADDR
1230 AANSWER  =$4603 ; A/A JUMP ADDR
1240 ONLINE   =$4606 ; OFF-HOOK ADDR
1250 OFFLINE  =$4609 ; ON-HOOK ADDR
1260 ;
1270 ; * ZERO PAGE VARIABLES
1280 ;
1290 DDEV    =2  ; DISK DEVICE #
1300 SCROFF  =3  ; SCREEN SUPPRESS FL
1310 MODOFF  =4  ; MODEM SUPPRESS FL
1320 MODE    =5  ; SCREEN EDITOR MODE
1330 QMODE   =6  ; QUOTE MODE ENABLE
1340 DUPLEX  =7  ; DUPLEX FL
1350 KFLAG   =8  ; FUNCTION KEY FL
1360 BFLAG   =9  ; BUFFER XMIT FL
1370 BUFOP   =10 ; BUFFER OPEN FL
1380 BUFFER  =11 ; BUFFER START ADDR
1390 BPT     =13 ; BUFFER POINTER
1400 INLEN   =15 ; INPUT BUFFER LENGTH
1410 KPT     =16 ; FUNCTION KEY POINTER
1420 TEXT    =18 ; MULTI-USE POINTER
1430 PPT     =20 ; PHONE DIR POINTER
1440 TPT     =22 ; TEMPORARY PTR
1450 PSA     =24 ; SCREEN PTR
1460 AA      =26 ; INTEGER WORK REGS
1470 MP      =28 ; FILE TRANSFER PTR
1480 ENTRY   =30 ; SCREEN SELECT CTR
1490 IKP     =31 ; IN-KEY POINTER
1500 IBP     =32 ; IN-BUFFER POINTER
1510 DECML   =34 ; DECIMAL RESULT STRNG
1520 LO      =39 ; MULTIPLY ROUTINE
1530 HI      =40 ; STORAGE
1540 SCRPTR  =41 ; SCREEN POINTER
1550 COLPTR  =43 ; COLOR RAM PTR
1560 ROW     =45 ; CURSOR ROW
1570 COL     =46 ; CURSOR COLUMN
1580 CHRSAV  =47 ; CHAR UNDER CURSOR
1590 COLSAV  =48 ; COLOR UNDER CURSOR
1600 RVSFLG  =49 ; INVERSE VIDEO FL
1610 SCRCODE =50 ; SCREEN CODE SAVE
1620 COLCODE =51 ; COLOR CODE SAVE
1630 SCLO    =52 ; SCREEN SCROLL PTRS
1640 SCHI    =53
1650 FUNCON  =54 ; COLOR FUNCTION FL
1660 STK     =55 ; TEMPORARY
1670 TCP     =56
1680 SELNUM  =58 ; PHONE #S SELECTED
1690 ;
1700 ; * SYSTEM INPUT BUFFER (80 BYTES)
1710 ;
1720 INBUFF  =60
1730 ;
1740 ; * SETUP FILE EQUATES
1750 ;
1760 MODSTR =820 ; MODEM FILE STRING
1770 FUNSTR =836 ; FUNCTION KEY FILE ST
1780 CHRSTR =852 ; CHARACTER SET STRING
1790 PROTO  =868 ; PROTOCOL USED
1800 PAGES  =869 ; DIRECTORY PAGES
1810 PDEV   =870 ; PRINTER DEVICE
1820 PSEC   =871 ; PRINTER SEC ADDRESS
1830 CLKOFF =872 ; KEYCLICK ENABLE
1840 CWAVE  =873 ;          WAVEFORM
1850 CFREQ  =874 ;          FREQUENCY
1860 BELOFF =875 ; BELL TONE STUFF
1870 BWAVE  =876
1880 BFREQ  =877
1890 DDELAY =878 ; PULSE DIAL DELAY
1900 CDELAY =880 ; CARRIER WAIT DELAY
1910 HDELAY =881 ; HANGUP DELAY
1920 SCC1   =882 ; SCREEN COLOR SAVE
1930 SCC2   =883
1940 SCC3   =884
1950 COMLOK =885 ; COMMAND LOCK FL
1960 COLLOK =886 ; COLOR MODE FL
1970 CAPLOK =887 ; UPPER CASE LOCK
1980 WRDLOK =888 ; WORD WRAP ENABLE
1990 LINEF  =889 ; LINE FEED STATUS
2000 NULLS  =890 ; NULLS
2010 XDELO  =891 ; TRANSMIT DELAY
2020 XDEHI  =892
2030 BAUD   =893 ; BAUD RATE
2040 SBITS  =895 ; STOP BITS
2050 WRDLEN =896 ; WORD LENGTH
2060 PARITY =897 ; PARITY
2070 BSPEED =898 ; BUFFER SPEED
2080 CARCHK =899 ; CARRIER CHECK
2090 ;
2100 ; * SCREEN SWAP EDITOR SAVE REGS
2110 ;
2120 XRVSFLG =980
2130 XFUNCON =981
2140 XCHRSAV =982
2150 XCOLSAV =983
2160 XROW =984
2170 XCOL =985
2180 ;
2190 ; * START OF GENERAL VARIABLES
2200 ;
2210 *=$600
2220 DSKBUF *=*+80
2230 NUMTAB *=*+32
2240 PA .BYT 0
2250 PX .BYT 0
2260 PY .BYT 0
2270 MDA .BYT 0
2280 MDAA .BYT 0
2290 MDC .BYT 0
2300 MDX .BYT 0
2310 MDY .BYT 0
2320 IDX .BYT 0
2330 KEYNUM .BYT 0
2340 DCBR .BYT 0
2350 LOWK .BYT 0
2360 HIWK .BYT 0
2370 LOWK2 .BYT 0
2380 HIWK2 .BYT 0
2390 LORK2 .BYT 0
2400 HIRK2 .BYT 0
2410 DECLM .BYT 0,0,0,0,0
2420 WAITLEN .BYT 0
2430 RC .BYT 0,0
2440 P .BYT 0,0,0
2450 S .BYT 0,0,0
2460 X .BYT 0,0,0
2470 Y .BYT 0,0,0
2480 Q .BYT 0,0,0
2490 R .BYT 0,0,0
2500 KA .BYT 0
2510 KX .BYT 0
2520 KY .BYT 0
2530 MAXLEN .BYT 0
2540 PCLR .BYT 0
2550 PROW .BYT 0
2560 PCOL .BYT 0
2570 WRAP .BYT 0
2580 WLEN .BYT 0
2590 WTEXT *=*+40
2600 WCOLR *=*+40
2610 SDSTR *=*+25
2620 LDSTR *=*+32
2630 SIZE .BYT 0,0
2640 DMODE .BYT 0
2650 FILES .BYT 0
2660 PUA .BYT 0
2670 PUX .BYT 0
2680 PUY .BYT 0
2690 PAGEN .BYT 0
2700 CURNUM .BYT 0
2710 PTMP .BYT 0
2720 TRYS .BYT 0,0
2730 NCT .BYT 0
2740 PSTR *=*+27
2750 MULMOD .BYT 0
2760 T659 .BYT 0
2770 BB .BYT 0,0
2780 BC .BYT 0,0
2790 FC .BYT 0
2800 II .BYT 0
2810 PSCR .BYT 0
2820 NOTALL .BYT 0
2830 LSTBLK .BYT 0
2840 DSKLEN .BYT 0
2850 OUTDEV .BYT 0
2860 SVC1 .BYT 0
2870 SVC2 .BYT 0
2880 SVC3 .BYT 0
2890 EXLINE .BYT 0,0
2900 SLINE .BYT 0,0
2910 ELINE .BYT 0,0
2920 AFLAG .BYT 0
2930 SCA .BYT 0
2940 SCX .BYT 0
2950 SCY .BYT 0
2960 SAVX .BYT 0
2970 SAVY .BYT 0
2980 SAVZ .BYT 0
2990 RETFLG .BYT 0
3000 *=$800
3010 QUOSCR =* ; QUOTE MODE SCREEN CODES
3020 .FIL 8,"0:TERM4.SRC1"